home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / Contrib.dir / 00006_Script_6 < prev    next >
Text File  |  1995-11-09  |  2KB  |  80 lines
  1. on blendSpriteDown
  2.   
  3.   set blendValue = 100
  4.   repeat while blendValue >= 0
  5.     set blendValue = blendValue - 10
  6.     if blendValue = 0 then exit repeat
  7.     set the blend of sprite 3 to blendValue
  8.     updatestage
  9.     put blendValue
  10.     if the mousedown then exit repeat
  11.   end repeat
  12.   
  13.   
  14. end blendSpriteDown
  15. -------------------------------------------------------------------
  16. on blendSpriteUp
  17.   
  18.   set blendValue = 0
  19.   repeat while blendValue <= 100
  20.     set blendValue = blendValue + 10
  21.     if blendValue = 100 then exit repeat
  22.     set the blend of sprite 3 to blendValue
  23.     updatestage
  24.     put blendValue
  25.     
  26.   end repeat
  27.   
  28. end blendSpriteUp
  29. -------------------------------------------------------------------
  30. on goFwdOld
  31.   
  32.   global currentText, theFirstText, theLastText
  33.   
  34.   if the castNum of sprite 3 < theLastText then
  35.     animate 2, 4
  36.     blendSpriteDown
  37.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
  38.     blendSpriteUp
  39.   end if
  40.   
  41. end goFwdOld
  42. -------------------------------------------------------------------
  43. on goBackOld
  44.   
  45.   global currentText, theFirstText, theLastText
  46.   
  47.   if the castNum of sprite 3 > theFirstText then
  48.     animate 2, 4
  49.     blendSpriteDown
  50.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
  51.     blendSpriteUp
  52.   end if
  53.   
  54. end goBackOld
  55. -------------------------------------------------------------------
  56. on goFwd
  57.   
  58.   global currentText, theFirstText, theLastText
  59.   
  60.   if the castNum of sprite 3 < theLastText then
  61.     animate 2, 4
  62.     
  63.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
  64.     
  65.   end if
  66.   
  67. end goFwd
  68. -------------------------------------------------------------------
  69. on goBack
  70.   
  71.   global currentText, theFirstText, theLastText
  72.   
  73.   if the castNum of sprite 3 > theFirstText then
  74.     animate 2, 4
  75.     
  76.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
  77.     
  78.   end if
  79.   
  80. end goBack